home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
09 Application Software
/
CAL98.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
12KB
|
624 lines
0 GOTO 2000:REM SAVE "CALENDAR9.8",8
1 LIST 1 -1999:REM PROGRAM
2 LIST 2000-2999:REM PROGRAM
3 LIST 3000-3999:MENU
4 LIST 4000-4999:INPUT DATA
5 LIST 5000-5999:SET UP VARIABLES
6 LIST 6000-6999:SET UP EMPTY STRINGS
7 LIST 7000-7999:REM SAVE TO DISK
8 LIST 8000-8999:REM READ FROM DISK
9 LIST 9000-9499:REM OPEN FILES
10 LIST 10000-10999:REM REFERENCE
11 LIST 11000-11999:REM NOT USED
12 LIST 12000-12999:REM PRINT CALENDER
13 LIST 13000-13999:CLEAR SCREEN
14 LIST 14000-14999:SET PRINTER PARAMTERS
15 LIST 15000-15999:SCRATCH OLD FILE
16 LIST 16000-16999:MAKE Y(1)-Y(12) DATA
17 LIST 17000-17999:DISPLAY ALTERED DATES
18 LIST 18000-18999:RECOVER FROM DISK ERROR
19 LIST 19000-19999:PRINT PRINTER OFF LINE MESSAGE
20 LIST 20000-20999:WELCOME
49 LIST 4900-4999:REM MAKE STRING
95 LIST 9500-9999:REM CLOSE FILES
100 REM ******************************
101 REM * *
102 REM * A.RYDBERG *
103 REM * RFD #1 BOX 46C *
104 REM * STERLING CT. 06377 *
105 REM * *
106 REM * ALL RIGHTS RESERVED *
107 REM * *
108 REM ******************************
1998 :
1999 :
2000 REM PROGRAM
2004 GOSUB 20000
2005 LF=7: P$(4)=" "
2010 GOSUB 13000:REM CLEAR
2012 POKE 53272,23:REM LOWER CASE
2020 GOSUB 5000:REM DIM VARIABLES
2024 GOSUB 6000:REM SET UP EMPTY STRINGS
2030 GOSUB 3000:REM MAIN MENU
2996 POKE 53272,21:REM ALL CAPS ON EXIT
2997 END
2998 :
2999 :
3000 REM MENU
3005 GOSUB 13000
3006 PRINT " "
3007 PRINT " ENTER 1 THRU 6"
3008 PRINT " "
3010 PRINT " 1) READ FROM DISK "
3020 PRINT " 2) ENTER NEW DATA"
3030 PRINT " 3) SAVE TO DISK "
3040 PRINT " 4) PRINT CALENDAR"
3050 PRINT " 5) END PROGRAM"
3054 PRINT " 6) SET PTR PARA. "R$(1)R$(3)R$(4)
3055 PRINT " 7) SCRATCH OLD FILE"
3056 PRINT " 8) DISPLAY ALTERED DATES"
3057 PRINT " 9) RECOVER FROM DISK ERROR"
3059 PRINT " "
3060 INPUT" ENTER NEXT COMMAND";X
3061 IF X>9 OR X<1 THEN 3060
3065 ON X GOSUB 8000,4000,7000,12000,3800,14000,15000,17000,18000
3070 IF X=5 THEN RETURN
3080 GOTO 3000
3800 RETURN
3998 :
3999 :
4000 REM INPUT DATA
4001 PRINT " ------------------------------"
4005 PRINT "(0) TO QUIT DATA INPUT"
4010 INPUT" MONTH (1 TO 12) ";MO
4011 IF MO>12 OR MO<0 THEN 4010
4012 IF MO=0 THEN 4498
4020 INPUT" DAY (1 TO 31) ";DA
4021 IF DA>31 OR DA<0 THEN 4020
4030 IF DA=0 THEN 4498
4040 GOSUB 4800:REM MAKE SQUARE
4045 L=2
4050 GOSUB 4900:REM GET CHAR
4052 IF A$="Q" THEN 4430
4055 GOSUB 4800:REM MAKE SQUARE
4070 L=3:GOSUB 4700
4075 IF A$="Q" THEN 4430
4080 L=4:GOSUB 4700
4430 GOTO 4000
4440 :
4498 RETURN
4499 :
4700 REM CHOOSE INPUT
4701 PRINT S$"[194]IRTHDAY--(F1) LINE# "L-1
4702 PRINT S$"[215]EDDING [193]-(F3)"
4703 PRINT S$"[200]OLIDAY--(F5)"
4704 PRINT S$"OTHER-----(F7)"
4706 PRINT S$"QUIT DATE-(Q)"
4710 PRINT" OCCASION"
4720 GET A$: IF A$="" THEN 4720
4721 IF ASC(A$)=81 THEN 4730
4725 IF ASC(A$)<133 THEN 4720
4726 IF ASC(A$)>136 THEN 4720
4730 IF ASC(A$)=134 THEN D$(MO,DA,L)="*[215]EDDING [193] ":GOTO 4790:REM F3
4735 IF ASC(A$)=135 THEN D$(MO,DA,L)="* [200]OLLIDAY ":GOTO 4790:REM F5
4740 IF ASC(A$)=133 THEN D$(MO,DA,L)="* [194]IRTHDAY ":GOTO 4790:REM F1
4750 IF ASC(A$)=136 THEN 4760 :REM F7
4755 IF A$="Q" THEN 4798
4760 GOSUB 4800:REM MAKE SQUARE
4780 GOSUB 4900:REM GET CHAR
4785 IF A$="Q" THEN 4430
4790 GOSUB 4800
4798 RETURN
4799 :
4800 REM PRINT SQUARE
4830 GOSUB 13000:REM CLEAR
4831 FOR I=1 TO 3:PRINT CHR$(17)
4832 PRINT" "
4833 PRINT S$M$(MO)
4834 PRINT " "
4844 PRINT S$"************"
4845 PRINT S$D$(MO,DA,1)"*"
4846 PRINT S$D$(MO,DA,2)"*"
4847 PRINT S$D$(MO,DA,3)"*"
4848 PRINT S$D$(MO,DA,4)"*"
4849 PRINT S$"************"
4897 RETURN
4898 :
4899 :
4900 REM MAKE STRING:L NEEDED
4908 PRINT " (ENTER Q TO END THIS DATE[160])
4909 [153] " ??????????"
4910 [133] "ENTER DATA";A$
4911 [139] A$[178]"Q" [167] 4997
4912 [139] [195](A$)[177]10 [167] [153]"ONLY 10 ALLOWED":[137] 4909
4913 [139] A$[178]"GOTO"[167] D$(MO,DA,L)[178]"* "
4920 [139] [195] (A$)[178]1 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4930 [139] [195] (A$)[178]2 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4932 [139] [195] (A$)[178]3 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4934 [139] [195] (A$)[178]4 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4936 [139] [195] (A$)[178]5 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4938 [139] [195] (A$)[178]6 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4940 [139] [195] (A$)[178]7 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4942 [139] [195] (A$)[178]8 [167] D$(MO,DA,L)[178]"* "[170]A$[170]" "
4944 [139] [195] (A$)[178]9 [167] D$(MO,DA,L)[178]"* "[170]A$
4946 [139] [195] (A$)[178]10 [167] D$(MO,DA,L)[178]"*"[170]A$
4997 [142]
4998 :
4999 :
5000 [143] SET UP VARIABLES
5010 [134] D$(12,31,4):[143] MONTH,DAY,LINE
5020 [134] M$(12)
5025 [134] Y(12)
5030 M$(1) [178] "MID$ANUARY"
5031 M$(2) [178] "ASCEBRUARY"
5032 M$(3) [178] "(null)ARCH"
5033 M$(4) [178] "ATNPRIL"
5034 M$(5) [178] "(null)AY"
5035 M$(6) [178] "MID$UNE"
5036 M$(7) [178] "MID$ULY"
5037 M$(8) [178] "ATNUGUST"
5038 M$(9) [178] "(null)EPTEMBER"
5039 M$(10) [178] "(null)CTOBER"
5040 M$(11) [178] "(null)OVEMBER"
5041 M$(12) [178] "STR$ECEMBER"
5050 [134] Z(12)
5060 [129] I[178]1 [164] 12:Z(I)[178]31:[130] I
5070 Z(4)[178]30:Z(6)[178]30:Z(9)[178]30:Z(11)[178]30:Z(2)[178]29
5170 S$[178]" "
5180 BK$[178]"* "
5190 P$(4)[178]" "
5997 [142]
5998 :
5999 :
6000 [143] SET UP EMPTY STRINGS
6005 [129] I[178]1 [164] 6:[153]" ":[130] I
6006 [153] " **** (null)ATNRIGHT$(null)CLOSE**** "
6010 [129] K[178]1 [164] 12
6020 [129] J[178]2 [164] 4
6030 [129] I[178]1 [164] 31
6040 D$(K,I,J)[178]"* "
6050 [130] I
6060 [130] J
6070 [130] K
6080 :
6110 [129] K[178]1 [164] 12
6130 [129] I[178]1 [164] 31
6132 I$[178][196](I)
6134 [139] [195]([196](I))[178]3 [167] 6138
6136 I$[178]I$[170]" "
6138 [143] NUMBER LENGTHS EQUAL
6140 D$(K,I,1)[178]"*"[170]I$[170]" "
6150 [130] I
6170 [130] K
6997 [142]
6998 :
6999 :
7000 [143] SAVE TO DISK
7005 [153] "SAVING DATA"
7010 [133] "DATA NAME";N$
7015 [139] N$[178]"Q" [167] [142]
7016 [139] N$[178]"" [167] 7010
7020 N$[178]N$[170]",S,W"
7040 [141] 9000:[143] OPEN
7100 [129] K[178]1 [164] 12
7110 [129] I[178]1 [164] 31
7113 :
7115 [139] D$(K,I,2)[178]"* " [167] 7150
7120 [129] J[178]1 [164] 4
7121 [139] ST[179][177]0 [167] 7200
7122 K$[178][196](K):I$[178][196](I):J$[178][196](J)
7123 [152]2,K$
7124 [152]2,I$
7125 [152]2,J$
7130 [152]2,D$(K,I,J)
7135 [153] "S "D$(K,I,J),M$(K)
7140 [130] J
7145 :
7150 [130] I
7160 [130] K
7200 [141] 9500:[143] CLOSE
7350 N$[178]""
7500 [142]
7998 :
7999 :
8000 [143] READ FROM DISK
8005 [153] "READING DATA"
8010 [133] "DATA NAME";N$
8015 [139] N$[178]"Q" [167] [142]
8016 [139] N$[178]"" [167] 8010
8020 N$[178]N$[170]",S,R"
8030 [141] 9000
8100 :
8125 [139] ST[179][177]0 [167] 8300
8127 [132]2,K$
8128 [132]2,I$
8129 [132]2,J$
8130 K[178][197](K$):I[178][197](I$):J[178][197](J$)
8132 [132]2,D$(K,I,J)
8135 [153] "R "D$(K,I,J),M$(K)
8140 [137] 8125
8150 :
8300 [141] 9500
8350 N$[178]""
8500 [142]
8798 :
8997 [142]
8998 :
8999 :
9000 [143] OPEN DISK FILES N$ NEEDED
9010 [159] 15,8,15
9020 [159] 2,8,2,N$
9498 [142]
9499 :
9500 [143] GET STATUS AND CLOSE FILES
9501 [143] N$ NEEDED
9520 [132]15,A$,B$,C$,D$
9530 [153] "NUMBER","TYPE","TRACK","BLOCK"
9540 [153] A$,B$,C$,D$
9545 [160] 2
9550 [160] 15
9560 [153] "STATUS IS "B$
9565 [153] "ANY KEY TO CONTINUE (ST="ST")"
9570 [161] A$:[139] A$[178]"" [167] 9570
9997 [142]
9998 :
9999 :
10000 [143] M$(1-12) NAME OF MONTH
10010 [143] D$(MONTH,DATE,LINE)
10020 [143] MO-MONTH
10030 [143] DA=DATE
10040 [143] Y(1) THRU Y(12) SPACES EACH MO
10041 Y[178]SPACES [145] EACH M[145]TH
10050 [143] F= LEAP YEAR FLAG
10060 [143] BK$= EMPTY SPACES
10070 [143] X$ TEMP STRING TO PRINTER
10080 [143] YE YEAR OF CALENDER
10090 [143] P$(1),TO P$(9)=PRINTER PARAMETERS
10100 [143] R$(1),TO R$(9)=PRINTER STATEMENTS
10110 [143] LF = 7 ( ADD LINE FEED )
10120 [143] OR LF=8 ( NO LINE FEED )
10130 [143]
10150 [143]
10160 [143]
10170 [143]
10180 [143]
10190 [143]
10998 :
10999 :
12000 [143] PRINT CALENDAR
12001 SM[178]1
12002 [133] "START MONTH";SM
12008 [141] 16000
12009 [141] 19000:[143] CK OFF LINE
12010 [139] F[178]O [167] Z(2)[178]28
12011 [139] F[178]1 [167] Z(2)[178]29
12015 A$[178]""
12020 [129] MO[178]SM [164] 12
12021 [139] A$[179][177]"" [167] 12542
12024 Y[178]Y(MO)
12025 X$[178]M$(MO):[141] 12800:[143] HEADING
12099 :
12100 [141] 12900:[143] ASTERICKS
12120 [129] J[178]1 [164] 4:[143] 1ST WEEK
12130 X$[178]P$(4) :[141] 12950
12135 [139] Y[178]0 [167] 12160
12140 [129] I[178]1 [164] Y:[143] SPACES
12145 X$[178]BK$:[141] 12950
12150 [130] I
12160 [129] DA[178]1 [164] 7[171]Y
12165 X$[178]D$(MO,DA,J) :[141] 12950
12170 [130] DA:X$[178]"*":[141] 12850
12172 [130] J
12173 [141] 12900
12174 :
12185 [129] J[178]1 [164] 4:[143] 2ND WEEK
12190 X$[178]P$(4):[141] 12950
12200 [129] DA[178]8[171]Y [164] 14[171]Y
12210 X$[178]D$(MO,DA,J) :[141] 12950
12215 [130] DA:X$[178]"*":[141] 12850
12216 [130] J
12220 [141] 12900:[143] ASTERICKS
12225 :
12250 [129] J[178]1 [164] 4 :[143] 3RD WEEK
12255 X$[178]P$(4) :[141] 12950
12260 [129] DA[178]15[171]Y [164] 21[171]Y
12265 X$[178]D$(MO,DA,J) :[141] 12950
12270 [130] DA:X$[178]"*":[141] 12850
12272 [130] J
12275 [141] 12900:[143] ASTERICKS
12285 :
12300 [129] J[178]1 [164] 4 :[143] 4TH WEEK
12310 X$[178]P$(4):[141] 12950
12315 [129] DA[178]22[171]Y [164] 28[171]Y
12320 X$[178]D$(MO,DA,J) :[141] 12950
12325 [130] DA:X$[178]"*":[141] 12850
12327 [130] J
12330 [141] 12900:[143] ASTERICKS
12331 [139] Z(MO)[170]Y[178]28 [167] 12541
12340 :
12349 [139] Z(MO)[170]Y[177]35 [167] 12450
12350 [129] J[178]1 [164] 4 :[143] 5TH WEEK AND LAST
12355 X$[178]P$(4): [141] 12950
12360 [129] DA[178]29[171]Y [164] Z(MO)
12365 X$[178]D$(MO,DA,J) :[141] 12950
12380 [130] DA
12385 [139] Z(MO)[170]Y[178]35 [167] 12406
12390 [129] I[178]Z(MO)[170]Y[170]1 [164] 35
12395 X$[178]BK$:[141] 12950
12400 [130] I
12406 X$[178]"*":[141] 12850
12407 [130] J
12408 [141] 12900:[137] 12541
12409 :
12450 [129] J[178]1 [164] 4 :[143] 5TH WEEK
12455 X$[178]P$(4): [141] 12950
12460 [129] DA[178]29[171]Y [164] 35[171]Y
12465 X$[178]D$(MO,DA,J) :[141] 12950
12470 [130] DA:X$[178]"*":[141] 12850
12480 [130] J
12485 [141] 12900:[143] ASTERICKS
12490 :
12500 [129] J[178]1 [164] 4 :[143] 6TH WEEK
12505 X$[178]P$(4) :[141] 12950
12510 [129] DA[178]36[171]Y [164] Z(MO)
12520 X$[178]D$(MO,DA,J) :[141] 12950
12530 [130] DA:
12532 [129] I[178]Z(MO)[170]Y[170]1 [164] 42
12534 X$[178]BK$:[141] 12950
12536 [130] I:X$[178]"*":[141] 12850
12538 [130] J
12540 [141] 12900:[143] ASTERICKS
12541 [130] MO
12542 [142]
12555 :
12600 [142]
12800 [143] PRINT HEADER
12805 [159] 4,4,LF
12810 [152]4,[199](12):[143] FF
12815 [129] I[178]1 [164] 23:[152]4," ":[130] I
12820 [152]4,P$(4) P$(1)" "X$" "YEAR;
12821 [152]4,P$(2)
12830 [152]4,P$(4) " (null)UN (null)ON (null)UE (null)ED";
12835 [152]4," (null)HUR ASCRI (null)AT"
12840 [160]4:[142]
12845 :
12850 [143] PRINT X$ WITH CR
12855 [159] 4,4,LF
12866 [152]4,X$
12867 [161] A$
12868 [160]4:[142]
12889 :
12900 [143] PRINT AND CR
12910 [159] 4,4,LF
12920 [152]4,P$(4) "***************************************";
12921 [152]4,"***************************************"
12930 [160]4:[142]
12940 [142]
12941 :
12950 [143] PRINT X$-NO CR
12955 [159] 4,4,LF
12966 [152]4,X$;
12968 [160]4:[142]
12998 :
12999 :
13000 [143] CLEAR SCREEN
13010 [153] [199](147):[143] CLEAR&HOME
13020 [151] 53281,0:[143] BLACK BACKGROUND
13030 [153] [199](5):[143] WHITE CHAR
13997 [142]
13998 :
13999 :
14000 [143] SET PRINTER PARAMTERS
14002 [141] 19000:[143] CK OFF LINE
14005 [153] " EPSON MX 80 GRAFTREX PLUS"
14010 [153] " 1) DOUBLE WIDTH TITLE "R$(1)
14020 [153] " 2) EMPHAIZED "R$(3)
14030 [153] " 3) COMPRESSED "R$(4)
14040 [153] " 4) CANCEL ALL "
14050 [153] " 5) REVERSE LF COMMAND " R$(5)
14060 [153] " 6) RTN TO MAIN MENU "
14100 [133] X
14105 [139] X[177]6 [176] X[179]1 [167] 14000
14110 [145] X [141] 14300,14400,14500,14600,14700,14750
14120 [139] X[178]6 [167] X[178]0:[142]
14130 [137] 14000
14299 :
14300 P$(1)[178][199](27)[170][199](215)[170][199](1)
14310 P$(2)[178][199](27)[170][199](215)[170][199](0)
14320 R$(1)[178]"DW ON "
14398 [142]
14399 :
14400 [139] R$(4)[178]""[167] 14410
14401 [142]
14405 P$(4)[178]" "
14410 P$(3)[178][199](27)[170][199](197)
14420 R$(3)[178]"E ON "
14430 [141] 14800
14440 [142]
14490 :
14499 :
14500 [139] R$(3)[178]"" [167] 14510
14501 [142]
14510 P$(3)[178][199](20):[141] 14800
14520 R$(4)[178]"CMP ON "
14530 P$(4)[178]" "
14598 [142]
14599 :
14600 P$(1)[178]"":P$(2)[178]"":R$(1)[178]""
14601 R$(3)[178]"":R$(4)[178]""
14602 P$(4)[178]" "
14610 P$(3)[178][199](18):[141] 14800
14620 P$(3)[178][199](27)[170][199](198):[141] 14800
14698 [142]
14699 :
14700 [139] LF[178]8 [167] 14720
14710 [139] LF[178]7 [167] 14730
14720 LF[178]7:R$(5)[178]"ADD LF " :[137] 14740
14730 LF[178]8:R$(5)[178]"NO LF ":[137] 14740
14740 [142]
14749 :
14750 [142]
14799 :
14800 [159] 4,4,LF
14810 [152]4,P$(3)
14820 [160]4
14830 [142]
14898 [142]
14899 :
14997 [142]
14998 :
14999 :
15000 [143] SCRATCH OLD FILE
15010 [133] "DATA NAME";N$
15015 [139] N$[178]"Q" [167] [142]
15020 N$[178]"SCRATCH0:"[170]N$
15030 [159] 15,8,15
15040 [152]15,N$
15050 [160]15
15055 :
15060 [141] 9000
15070 [153] N$" DONE."
15090 [153] "ANY KEY TO CONTINUE"
15100 [161] A$:[139] A$[178]"" [167] 15100
15110 [142]
15798 :
15799 :
16000 [143] MAKE Y1-Y12 DATA
16010 [143] F= FLAG
16020 [143] L= TEMP LEAP YEARS
16030 [143] YE=YEAR
16040 :
16050 [133] "YEAR=";YE
16100 N[178]YE[171]1978
16105 L[178]0
16110 [129] X[178]1978 [164] YE[171]1
16120 [141] 16900
16130 [139] F[178]1 [167] L[178]L[170]1
16140 [130] X
16150 X[178]YE:[141] 16900:[143] GET FLAG
16169 :
16200 Y[178]N[170]L
16210 [141] 16800
16250 :
16300 [143] NORM YEAR
16301 [139] F[178]1 [167] 16400
16310 Y(1)[178]Y:Y(10)[178]Y
16320 Y[178]Y[170]3:[141] 16800
16330 Y(2)[178]Y:Y(11)[178]Y:Y(3)[178]Y:Y[178]Y(1)
16340 Y[178]Y[170]4:[141] 16800
16350 Y(6)[178]Y:Y[178]Y(1)
16355 Y[178]Y[170]2:[141] 16800
16360 Y(8)[178]Y:Y[178]Y(1)
16365 Y[178]Y[170]5:[141] 16800
16370 Y(9)[178]Y:Y(12)[178]Y:Y[178]Y(1)
16375 Y[178]Y[170]6:[141] 16800
16380 Y(4)[178]Y:Y(7)[178]Y:Y[178]Y(1)
16385 Y[178]Y[170]1:[141] 16800
16390 Y(5)[178]Y:Y[178]Y(1)
16394 [137] 16494
16395 :
16400 [143] LEAP YEAR
16410 Y(1)[178]Y:Y(4)[178]Y:Y(7)[178]Y
16420 Y[178]Y[170]3:[141] 16800
16430 Y(2)[178]Y:Y(8)[178]Y:Y[178]Y(1)
16440 Y[178]Y[170]4:[141] 16800
16450 Y(11)[178]Y:Y(3)[178]Y:Y[178]Y(1)
16455 Y[178]Y[170]2:[141] 16800
16460 Y(5)[178]Y:Y[178]Y(1)
16465 Y[178]Y[170]5:[141] 16800
16470 Y(6)[178]Y:Y[178]Y(1)
16475 Y[178]Y[170]6:[141] 16800
16480 Y(9)[178]Y:Y(12)[178]Y:Y[178]Y(1)
16485 Y[178]Y[170]1:[141] 16800
16490 Y(10)[178]Y:Y[178]Y(1)
16494 [142]
16495 :
16800 [143] REDUCE Y
16810 Y[178]Y[171]([181](Y[173]7))[172]7
16820 [142]
16830 :
16900 [143] LOOK FOR LEAPS
16905 F[178]0
16910 [139] [181](X[173]4)[179][177](X[173]4)[167] 16997
16920 F[178]1
16930 [139] [181](X[173]100)[179][177](X[173]100)[167] 16997
16940 F[178]0
16950 [139] X[179][177]2000 [167] 16997
16960 F[178]1
16997 [142]
16998 :
16999 :
17000 [143] DISPLAY ALTERED DATES
17110 [129] MO[178]1 [164] 12
17120 J[178]2
17130 [129] DA[178]1 [164] 31
17140 [139] D$(MO,DA,J)[178]"* "[167] 17150
17145 [141] 17200
17150 [130] DA
17170 [130] MO
17180 [142]
17185 :
17200 [143] DISPLAY
17233 [153] S$M$(MO)
17234 [153] " "
17244 [153] S$"************"
17245 [153] S$D$(MO,DA,1)"*"
17246 [153] S$D$(MO,DA,2)"*"
17247 [153] S$D$(MO,DA,3)"*"
17248 [153] S$D$(MO,DA,4)"*"
17249 [153] S$"************"
17250 A[178][194](197)
17251 [139] A$[178]"H" [167] 17250
17260 [139] A[178]60 [167] 17250:[143] STOP ON SPACE BAR
17270 [142]
17280 :
17997 [142]
17998 :
17999 :
18000 [143] RECOVER FROM DISK ERROR
18005 [160]2:[160]15
18010 [159] 15,8,15
18020 [152]15,"INITIALIZE"
18030 [160]15
18040 [142]
18998 :
18999 :
19000 [143] PRINT PRINTER OFF LINE
19010 [153] " "
19020 [153] "PRINTER OFF LINE"
19030 [159] 4,4,8
19040 [152]4," "
19045 [160]4
19050 [141] 13000
19060 [142]
19998 :
19999 :
20000 [143] WELCOME
20010 [151] 53281,0:[143] BLACK SCREEN
20020 [153] [199](5):[143] WHITE LETTERS
20030 [129] I[178]1 [164] 3:[153] " ":[130]
20040 [153] [166]10)"WELCOME"
20045 [153] [166]3)" THIS IS FREEWARE"
20050 [153] [166]3)" IT IS DISTRIBUTED BY ALLOWING"
20060 [153] [166]3)" COPIES TO BE MADE AND GIVEN TO "
20065 [153] [166]3)" MEMBERS AND FRIENDS BY CLUBS AND"
20070 [153] [166]3)" HOBBYISTS "
20080 [153] [166]3)" YOU ARE FREE TO USE AND DISTRBUITE"
20090 [153] [166]3)" THIS SOFTWARE AS YOU SEE FIT. "
20100 [153]" "
20110 [153] [166]3)" HOWEVER IT IS SUGGESTED THAT "
20120 [153] [166]3)" A SMALL REMUNERATION BE SENT "
20130 [153] [166]3)" TO THE AUTHOR FOR HIS WORK. "
20140 [153] [166]3)" THE SUGGESTED AMOUNT IS FIVE (5)"
20150 [153] [166]3)" DOLLARS. IN RETURN FOR THIS "
20155 [153] [166]3)" PRINTED INSTRUCTIONS WILL BE "
20156 [153] [166]3)" RETURNED TO THE SENDER."
20160 [153] [166]3)" "
20190 [153] [166]3)" REMIT TO; A. RYDBERG "
20200 [153] [166]3)" RFD#1 BOX 46 C "
20210 [153] [166]3)" STERLING CT. 06377"
20220 [153] [166]3)" "
20230 [153] [166]3)" ANY KEY TO PROCEED"
20240 [161] A$:[139] A$[178]"" [167] 20240
20999 [142]